#' Fonction colId
#'
#' @param df une table data.frame
#'
#' @return les indices de colonnes pouvant ĂȘtre des identifiants
#' @export
colId <- function(df){
idcol=NULL
for (i in 1:dim(df)[2]){
if (length(unique(df[,i]))==length(df[,i])){
idcol[i]<-i
}
}
idcol<-idcol[!is.na(idcol)]
return(idcol)
}
#' @examples
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.